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PROGRHHHS 



JACK 




10 COLORI,13,13:SCREEN3 
20 0PEN”GRP: "ASM 

30 DRAWBM50,50" : PRINTM , "BLACK" : DRAWBM60, 120" : PRINTM , “JACK" 

40 FÓRZ=3TOOSTEP-l:SOUND1.Z:S0UND3,8:F0RX=255T01STEP-1:SOUNDO.X:NEXT:S0UND8.0:FO 
RX=1T010:NEXT:NEXT 
50 COLOR15,4.4:WIDTH39:SCREENO 
90 PE=0:PU=0:CLS:INPUT"CUAL ES TU NOMBRE"SU*:IFLEN(US)>12G0T0 90 

100 LOCATEO,10:PRINT"DIME QUE LETRA PULSARAS CUANDO QUIERAS ABANDONAR EL JUEGO": 
AB$=INPUT*(1):IFABSVO"ANDAB*<”4"THENCLS:GOTO100ELSEPRINT:PRINT"PARA ABANDONAR P 
ULSA: "5 AB*:F0RT=1T02000:NEXT 

110 DIMN$<11),P* (3),V<11),M(11,3) ,U(13) :REST0RE9000:F0RI=0T011:READJ*:N$(I)=J*:N 
EXT I:FORI=0TO3:READJ$:P*(I)=J*:NEXTI:F0RI=0T011:READJ:V <I)=J:NEXTI:SCREEN2:COLOR 
.15,2,4:CLS 

190 LINE(O,O)-(256,9),5,BF:DRAW"BMO,1":PRINTM,“ BLACK JACK 1986 G.T.S" 

:LINE <4,24)- (32,34),5,BF:DRAW"BM9,26“:PRINTM,"MSX":PJ=0:G0SUB5500 

195 LINE <4,88) - (8 + 8*LEN (U$) , 98) , 5, BF:DRAW"BM9,90" : PRINTPtl , : U*: G0SUB5600: G0SUB7500 

300 GOTO 900 

500 ERASEM:DIMM(11,3):RETURN 

300 G0SUB7500:DRAW"BM96,178":PRINTM,"TU GANAS":BEEP:PJ=VU:FORI=0T0800:NEXTI:GOS 
UB5600:RETURN 

310 G0SUB7500:DRAW"BM99,178":PRINTM,"YO GANO":BEEP:BEEP:PJ=UE:F0RI=0T0800:NEXTI 
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:G0SUB5500:RETURN 

320 GOTO 7500: DRAW"BM52. 173" : PRINTPtl . " NOS PASAMOS LOS DOS " : BEEP : F0RI=0T0300 ° NEXT 
I :RETURN 

900 G0SUB990:G0SUB996:GOSUB1000:G0SUB994:G0SUB2000:G0SUB3502:FORI=0T0i000:NEXTI 
910 VE=VA:IF(VU>21)AND(VE>21)THENGGSUB320:GOTO 950 

912 IF < VU< =21)AND(VU > = VE)THENG0SUB800:GOTO 950 
914 IF <VE<=21)AND(VUXVE)THENG0SUB810:GOTO 950 
916 I FVU>2 1 THENGOSUBSlO:GOTO 950 

913 IFVE >21THENGGSUBSOO:GOTO 950 
950 G0SUB990:G0SUB994:VS=0:G0SUB2000:VE = VA:G0SUB996 :GOSUB1000:G0SUB3502 : FORI=0T0 
1000:NEXTI 

960 IF <VU>21)AND(VE>21)THENG0SUB320:GOTO 900 
962 IF(VU<=21)AND<VU>VE)THENG0SUB300:GOTO 900 
964 IF<VE<=21)AND<VU<=VE)THENG0SUB310:GOTO 900 
966 IFVU >21THENG0SUB810:GOTO 900 
968 IFVE>21THENG0SUB300:GOTO 900 
980 GOTO 900 

990 G0SUB5000:G0SUB500:NC=1:x=40:G0SUB6loo:X = 104:GOSUB6100:NC=2:X=40:GOSUBó1oo:X 

= íoa : gosubóioo:return 

994 G0SUB7500: DRAW" BM96.173" : PRINTPtl . "MI TURNO" : BEEP:FORI=0TQ300:NEXTI : RETURN 
996 G0SUB7500: DRAW " BM96 . 178" : PRINTPtl . "TU TURNO" : BEEP : FOR I =0T0800 : NEXT I : RETURN 

1000 ERASELi: DIMU ( 12) : NC=0: G0SUB5100: X=104: G0SUB6200: G0SUB5100: G0SUB6200 

1001 Q=i:G0SUB4000:IFVA>21THENGOSUB7000:VU=VA:VA=0:RETURN 

1002 GOSUB1500IIFR*="2"GOTO 1100 
1010 G0SUB5100:GOSUBÓOOO 

1020 GOTO 1001 

íioo vu=vA: q=3:G0SUB4000:return 

1500 G0SUB7500: DRAW "BM3 . 178 " : PRINTPtl . " i 1¿ OTRA CARTA ¡ 26 ME PLANTO" : BEEP 

1502 P0KE62456!.240:P0KEÓ2457!.251:P0KEÓ2458! ; 240:P0KEÓ2459!.251:R*¡=INPUT*(1) 

1503 IFR*=AB*THEN10000 

1504 IFR*="1"ORR*="2"THENG0SUB7500:RETURN 
1506 GOTO 1502 

2000 ERASEU:DIMU(12) :VS=VA+7: IFVS>20THENVS=17 

2010 x=40:NC=o: gosubsioo:pi=ss:ci=s:gosubsioo:P 2=ss:C2 =s:q=i 

2012 G0SUB4000: IFVA >==13G0T0 3600 

2014 G0SUB4000: IF < VU>21)AND(VA< = í1)THENG0SUB5100:G0SUB4000:GOSUBÓOOO:GOTO 3600 

2015 G0SUB4000:IFVU>21G0T0 3600( 

2616 IFVS=OGOTO2045 

2020 G0SUB4000:IFVA<VSTHENG0SUB3000:IFVA>21G0T0 3500 
2030 ÍFVA4VSGGT0 2020 
2040 IFVA>21G0T0 3500 
2045 IFVA< = 11G0T0 3010 

2070 IFV/A=12THENIFRND ( -TIME ) < . 93G0T0 3010 

2071 IFVA >=18G0T0 3600 

2072 IFVA=13THENIFRND(-TIME)<.9G0T0 3010 
2074 IFVA=14THENIFRND(-TIME)<.3G0T0 3010 
2076 IFVA=15THENIFRND(-TIME)<.6G0T0 3010 

2073 IFVA=16THENIFRND(-TIME)< 

2030 IFVA=17THENIFRND(-TIME)< 

2090 GOTO 3600 


35G0T0 3010 
15G0T0 3010 


3000 G0SUB5100:GOSUBÓOOO:G0SUB4000:RETURN 
3010 GOSUBSIOO: GOSUBÓOOO: G0SLIB4000: GOTO 2040 
3500 G0SUB7500: DRAW " BM99 • 173 " : PRI NTPt 1 . "ME PASE" : BEEP : FOR I =0TGÓ00 : NEXT I 

3502 x=40 :ss=pi: s=ci: nc=i:gosubóooo:ss=P 2:s=C2 :nc=2:gosubóooo:return 

3600 G0SUB7500: DRAW " BM91 . 178" : PRINTPtl . "ME PLANTO" : BEEP:FORI=0T0900: NEXT I : RETURN 
4000 VA=0*. F0RI=QT012 : VA=VA+U ( I ) : NEXTI 
4020 IFVA< =21THENRETURN 
4040 FORI=QTO12:IFU( I)< >11G0T040Ó0 
4050 VA=VA-10: IFVA< =21THENRETURN 
4060 NEXTI:RETURN 

5000 LINEC O.40) -(256.72) .2.BF:LINE < O. 103) 


C 256. 154) .2.BF:RETURN 
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5100 S=INT<RND(-TIME)*12) : SS= I NT ( RND ( - T I ME) *4 ) *. IFM ( S . SS) = 1 GOTO 5100 
5104 NC-NC+l:U(NC)=V(S):M(S.SS)=1:RETURN 
5200 IFSS< 2THENC0=óELSEC0=1 
5202RETURN 

5500 RE=PE+PJ:W=8*LEN(STRS(PE)):LINE(120.24)-(120+W.34).5.BF:DRAW H BM120.2Ó M :RRTN 
TfV14 PE:BEEP £ RETURN 

5600 PU=PU+PJ:W=3*LEN(STR*(PU) ) : LINE ( 120.88) - (120 +W - 93).5.BF: DRAW !, BM120.90" : PRIN 
TPt 1 . PU:BEEP:RETURN 

6000 LINE í-1Ó+24*NC.X)-(3+24*NC.X + 32). 15.BF:H = -lÓ+24*NC:K = X 

6010 G0SUB5200 í COLORCO : KK=K + 1 : HH=H + 4 : DRAW" BM=HH; . =KK ; " : PRI NTPti . N* (S) i KK = KK+10:DR 
AW " BM=HH ? . =KK PR I NTPti . P* (SS) : BEEP: COLOR 15£ RETURN 

6100 LIME ( - ló+24*NC . X ) - <3+24*NC . X+32) . 15. BF : COLORÓ : F0RI=0T03 : H=-ió + 24*NC '. K=X+3*I 

: draw"bm=h; .=k; ": PRiNTPti. "LLL": nexti : beep: colorís: return 

6200 GGSUB6100:LINE(H.X)-(H+15.X+19) . 15.BF:K=X+i:GOSUBÓOiQ:RETURN 

7000 G0SUB7500:DRAW" BM48 . 178" : PRINTPtl . "LO SIENTO TE PASASTE” : BEEP : FORI =0T0850 : NE 
XTI:RETURN 

7500 LINE(O.170)-(256.196).5.BF:BEEP:RETURN 

9000 DATA” A" . ” 2 " . " 3 " . ,, 4" . "5" . "ó” . "7" . ”8" . "9" . " J ” . " Q " . ” K " . ” C " . " D " . " F” . ” É " 

9002DATAl1.2.3.4.5.6.7.8.9.10.10.10 

10000 COLOR15.4.4:SCREENO’L0CATE4.10:PRINT"PARA OTRA PARTIDA PULSA P":L0CATE4.12 
:PRINT"PARA OTRO PROGRAMA PULSA F”:R$=INPUT*(1)UFRS="P"ORR*="D"THENRUNELSEIFR3K 
>"F"ANDR*< >"f"THEN10000 

10010 CLEAR:CLS:L0CATE4.3:PRINT"PARA EL SIGUIENTE PROGRAMA":L0CATE4.iO:PRINT”PUL 
SAPLAY ENEL CASSETTE" 

10020 CLOAD. 
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DADOS 


10 1 oooooooooo 
20 ’ 0 0 0 0 c 

30 ’ 0 0 0 0 DADOS C 

40 í 0 0 0 0 C 

0 0 0 0 

30 0 0 

3 0 0 0 

3 0 0 0 

0 0 0 0 0 

i- -i.i.í.f.f.i" .f. 

\ i 

i 1 1 | 


.i.f..i. 

[i 

I i | l 

50 ’ 0 0 0 0 0 0 0 0 0 0 

60 ’. 

0 0 0 0 

O 

.¿3 

O 

.O 

o 

r.~?.i.~r.; 

i | 


\ 1 1 1 \ 

\ i 


70COLOR 3.6,10 j 

80 SCREEN 3 : 

90 OPEN”GRP: "ASM 

100 PSET (45,80) , ó: PRINTM, "DADOS" 

1Í0 FOR Y=1 TO 1500:NEXT 
|130 CLOSE . 

130 KEY OFF:SCREEN 0:WIDTH 39:COLOR1,15,4 

140 RESTORE 1170:LOCATEO,22:FOR 1=1 TO 13:READ X$¡LOCATE O,1*2:BEEP:PRINTX$:NEXT 


“f. 

-4—- 


150 X*=INKEY*¡IF X$="” THEN 150 ELSE CLS 

160 CLS: INPUT"Cu.al es tu nombre"5N$:IF LEN(N$) >10 THEN CLS: GOTO 160 

170 OPEN"qrp:“ASM:SCREEN2:DRAW"bm3,16":PRINTM,N*5O":DRAW"bml70,15"¡PRINTM, 

"MSX: O":GOTO 220 

180 DRAW "BM 64,178“:PRINTM,"0:0TRA F:FIN" 

190 X$=INKEY*: ; IF X$=" " THEN 190 ELSE IF X*="O” OR;X*='ío“ THEN 200 ELSE IF X*=“F" 
OR X*="+" THEN 1110 ELSE 190 
200 SU=0:IF IN=1 THEN IN=0:GOTO 370 ' 

210 IF IN=0 THEN IN=1:LINE <56,26)-<200, 192),15,BF¡LINE <136,O)-(162,9) ,15,BF:GOTO 
300 

220 RESTORE 1160:SU=0:FOR 1=1 TO 6: READX*: C* < I) =XS¡: NEXT I:X=RND(-TIME):IF X<.5 T 

HEN 300 ELSE 3701IN=0 _ ..;. 

230 IF SU<21 THEN RETURN 

240 IF SU=21 THEN DRAW"bm38.168": PRINTfc1,"HAS GANADO":GU=GU+1:GOSUB 1120:G0T0 18 


250 IF SU>21 THEN DRAW"BM33, 168": PRINTM ,"HAS PERDIDO":GM=GM+1!GOSUB 1140:GOTO 1 

260 DRAW "BM64, 153" ¡PRINTM, "ELIJO LA CARA:”!CE:BEEP 
270 IF SU<21 THEN RETURN 

280 IF SU=21 THEN DRAW"bm88. 168" ¡ PRINTM , "HE GANADO":GM=GM+1:GOSUB 1140:GOTO 18 


"■'■■""T"'.I 

.1-.I 


290 IF SU>21 THEN DRAW"BM38.168":PRINTM."HAS GANADOGU=GU+1:GOSUB 1120:GOTO 18 

§ j I 5 ! : ; :■ i i ! i i ij I : : : ; : : ; ' 1 

O . . 

300 IN=i:DRAW M bm 64. i68" : PRINTPtl f |“Que cara escoges" : DRAW"bm 83. 178" : PRINTM . " 1 2 

4.3.4.5 ó”: BEEP .. .... .. . 

rlr^l !■ ; I ( I I ./ ‘ * f \ | j j 1 * , \ 1 ,4 * 1 | l _^ [ 
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310 X*=INKEY*:IF XS=“" THEN 310 ELSE IF X$¡<"1 M 0R X$>"6' THEN 310ELSE 360 
320 DRAW’bm 64. 168" : PRI NTPi 1. "Que cara escoges" : BEEP: DRAW”brn 83. 178” : FOR 1 = 1 TO 4 
:PRINTM.MID*(C*(CS) . 1.1)5 " ” 5 : MEXT I: BEEP 

330 X*=INKEY«:IFX$= ” “ THEN330 

340 FOR 1 = 1 TO 4:IF MID$ < C$ < CS >.1.1> =X$THEN 360 
350 NÉXTI:GOTO330 

360 CE=yAL(X*);CS=CE:GOSUB 420!GOSUB 230:FOR 1=0 TO 800:NEXT I:GOTO 370 
370 IF SU>0 THEN 400 

330 X=RND(-TIME):IF X<.5 THEN CE=3 ELSE CE=4 
390 GOTO 410 

400 ON SU GOSUB 380,870.850.330.310.. 790.770.750.730. 710.690. 670.650,. 630. 610.590. 
570.550.530.510 

410 CS=CE: GOSUB 420-.GOSUB 260: GOTO 320 

420 LINE(56.26)-(200.192).15.BF:BEEP:LINE<136,O)-(162.9).15.BF:BEEP 

430 SU=SU+CE:DRAW l, bj'n96.1“:PRINTftl.”Su«ia=“!SU:BEEP:G0SUB1lOO:GOSUB 440:RETURN 
440 IF CE=1 THEN Z=0 : G0SUB910: Z=64:G0SUB940:G0SUB970:G0SUB980:GOSUB1020:GOSUB107 


450 IF CE=2 THEN Z=0:G0SUB930:Z=64:G0SUB890:G0SUB960:G0SUB990:G0SUB1020:GOSUB107 

460 IF CE=3 THEN Z=0:G0SUB900:Z=64:G0SUB920:G0SUB970:G0SUB9S0:GOSUB1040:GOSUB105 
O 

47n tf cp=¿i THEN Z=0:G0SUB920:Z=64:GOSUB900:GDSUB970:G0SUB9S0: G0SUB101 O:G0SUB108 


480 IF CE=5 THENZ=0:GOSUB390:Z=64:G0SUB930:GQSUB950:GOSUB1000:GOSUB1020:GOSUB1O 


70 


490 IF CE=6 THEN Z=0:G0SUB940:Z=64:G0SUB910:G0SUB970:G0SUB980:GOSUB1030:GOSUB106 


500 RETURN 

510IF CS=1 OR CS=6 THEN CE=2 ELSE CE=1 
520 RETURN 

530 IF CS=2 OR CS=5 THEN CE=1 ELSE CE=2 
540 RETURN 

550 IF CS=3 OR CS=4 THEN CE=1 ELSE CE=3 
560 RETURN 

570 IF CS=3 OR CS=4 THENCE=2 ELSE CE=4 
580 RETURN 

590 IF CS=2 OR CS=5 THEN CE=1 ELSE CE=5 
600 RETURN 

610 IF CS=1 OR CS=6 THEN CE=3 ELSE CE=6 
620 RETURN 

630 IF CS=2 OR CS=5 THEN CE=3 ELSE CE=2 
640 RETURN 

650 Tf CS=3 OR CS=4 THEN CE=1 ELSE CE=4 
660 RETURN 

670 IF CS=1 OR CS=6 THEN CE=2 ELSE CE=1 
680 RETURN 

690 IF CS=2 OR CS=5 THEN CE=1 ELSE CE=5 
700 RETURN 

710 IF CS=2 OR CS=5 THEN CE=3 ELSE CE=2 
720 RETURN 

730 IF CS=3 OR CS=4 THEN CE=1 ELSE CE=3 
740 RETURN 

750 IF CS=3 OR CS=4 THEN CE=1 ELSE CE=4 
760 RETURN 

770 IF CS=2 OR CS=5 THEN CE=1 ELSE CE=5 
780 RETURN 

790 IF CS=1 OR CS=6 THEN CE=3 ELSE CE=6 
800 RETURN 

310 IF CS=2 OR CS=5THEN CE=3 ELSE CE=2 
320 RETURN 
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330 IF CS=1 0R CS=2. THEN CE=4 ELSE CE=1 
840 RETURÑ 

350 IF CS=1 THEN CE = 2 ELSE CE=1j 
360 RETURN 
870 CE=i:RETURN 
330 CE=2:RETURN 

890 X=135:Y = 63 + Z:GOSUB 1090:X=119:Y=79 + Z:GOSUB 1090 
900 X= i 19:Y=63+Z:GOSUB 1090: X= 135:Y = 79 + Z:GOSUB 1090 
910 x=127:Y=71+Z:GOSUB 1090:RETURN 

920 X=135:Y=63+Z:GOSUB 1090:X=119:Y=79+Z:GOSUB 1090 

930 X=119:Y=62+Z: GOSUB 1090: x=135: Y = 79 + Z : GOSUB 1090 : RETURN 

940 x=135:Y=Ó3+Z:GOSUB 1090:X=T19:Y=79+Z:GOSUB 1090:X=119:Y=Ó3+Z:GOSUB 1090:x=13 
5:Y=79+Z:GOSUB 1090:x=127:Y=Ó3+Z:GOSUB 1090:Y-79+Z:GOSUB 1090:RETURN 
950 X=i27:Y=43:GOSUB 1090:RETURN 

960 x=127:Y=39:GOSUB 1090:X=151:GOSUB 1090:X=111:Y = 47:GOSUB 1090:X=127:GOSUB 109 


970 X=103:Y=39:GOSUB 1090:x=143:Y=47:GOSUB 1090:RETURN 

980 X=111:Y = 95:GOSUB 1090:x=143:GOSUB 1090:X=i03:Y=103:GOSUB 1090:X =151:GOSUB 10 
990 X=127:Y=99:GOSUB 1090:RETURN 

1000 X=111:Y = 95:GOSUB 1090:X = 143;GOSUB 1090:X=1Ó3i ¥=i03:GOSUB i 090:X=151:GOSUB 1 
090:X=127:Y=95:GOSUB 1090:Y=103:GOSUB 1090:RETURN 
1010 x=151:Y=71:GOSUB 1090:X=i59;GOSUB 1090: 

1020 x=15l:Y=55:GOSUB 1090:Y = 37:GOSUB 1090:X=159:Y=47:GOSUB 1090:Y=95:GOSUB 1090 
:RETURN 

1030 X=151:Y=55:GOSUB 1090:X=159T Y=95:GOSUB 1090 
1040 X=156:Y=72:GOSUB 1090:RETURN 

1050.X=95TY=7i ! GOSUB 109Ó : X^I034 GOSUB.1-090 . .. . 

1060 x=95:Y=47:GOSUB 1090:Y=95:GOSUB 1090:X=103:Y=55:GOSUB 1090:Y=37:GOSUB 1090: 
RETURN 

1070 x=95:Y=47:GOSUB 1090:X=103:Y=S7:GOSUB 1090 
| 1080 X=R9:Y=70:GOSUB 1090:RETURN í 
1090 DRAW 5 .-y; r2d112a2^2":RETURN 

Í10Ó PLAY " 03L3C05L16BL8D " : DRAW " brn 87 «31 r81 d81 181 u3 i " : DRAW " brnl 12.56 c7 r31 d3 

1 131 u3i”:DRAW’bm 87.31!el f25 bf31 +25 bu81 ^25 b631 a25":DRAW”bm 112.120 r31 

d 31 131 u31":PAINT (114.53) .7:COLOR i:RETURN 

1110 CLEAR:COLORI5.4.4:SCREEN O:LOCATE 3.10:PRINT«PULSA PLAY PARA PROXIMO PROGRA 
MA":CLOAD 

1120 PLAY"t25504L16FFF05D04B-B-B-05C04AAAL3B-GR1605L16CC04B-L3B-AL16AB-B-AL3GF": 
LIME (O f 14) - ( 136.25) ; 15. BF: DRAW " BM3.. 16" : PRINTPtl .. N$; " : " 5 GU 
H30 IF PLAY ( i ) =-l THEN 1130 ELSE RETURN 
1140 PLAY ,, o4L3AQ5L2DL4DC+04L2AL4AR3L3A05L2DL4DLSEC + L2DL4DR3L3C04L2B-L3B-05CD04B- 
L2AL4A " : LINE ( 133.14)- (256.25) .15. BF : DRAW " BM170 . 15" : PRINTPtl . "MSX: " ; GM 
1150 IF PLAY(1)=-l THEN 1150 ELSE RETURN 
1160DATA"2345". f 1346"."1256"."1256"."1346"."2345" 

1170 DATA" DADO 21"."El obietivodelpresente iueqo es s ni 

menos que obtener 21 puntos.. íy". "como se obtinen los puntos?., muy fácil. ". "sum 
ando el valor de la cara superior” 

1180 DATA"del dado que aparece en rara perspec-"."tiva. Por turno se ha de ir vo 
1 teando".. "el dado, el que a 1 cariz e los 21 puntos" . "gana., el que se pase pierde.”, 
r ; r " PULSA TECLA PARA COMENZAR" 
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10 
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0 
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0 0 0 0 0 
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0 0 0 0 
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0 

0 

0 
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0 



20 

i 

0 

0 

0 
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0 0 0 c 
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30 


0 

0 

0 

0 CUESTA 


0 0 0 c 

\ . : 







.1. 

40 

* 
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0 

0 
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0 0 0 c 

1 





• j ; ! I i 



50 

7 

0 

0 

Ü 

0 0 0 0 0 

0 

~o| oToTo] 

0 

0 

0 

0 

0 
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1 

60 













j i ! 1 i 


i 

70 
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LUIS 

SANGUINO ARIA? 







"t . r . i. t . ? 



30 
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90 
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1986 



L—i 
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4 - « - 


1 


100 

110 


OOOOOGOOOOOOOOOOOOO 


... . 

120 COLOR 1.3.10 

130 SCREEN 3 

140 OPEN "GRP:" ASft1 

150 PSET(40.80) .3:PRINTM. "CUESTA" 

160 FOR Y=1 TO 1500:NEXT 

170 CLOSE 

180 COLOR 1.14 

l ._i..j 

i.i. : .f | 

1 í !■ í | 

j..i.4-. \ 

190 SCREEN1 

200 LOCATE 3.10:PRINT", 
210 X*=INKEY* 

220 1=1+1:IFI>13 THEN 

230 VDP(7)=I 

JOTSTICK 

1 = 1 

f I 1 | 

[ I i j T j ;• ! I i | 1 1 F 1 i l 1 ! ¡ 

0 CURSOR “J/O" 

••.f-.j.4~.(..í.4.!••••"“•{•-.|.-4.1.¡.í.i.|.|.(.h.i 

~~4 . i f i - ! 1-. \ 

j.....j.i.|-. 

L J _ : .. j 5 


24o IF X$="J"OR X95="i" THEN CT=l:G0T0270 
250 XF X*=“c"OR X*="C" THEÑ CT=0:G0T027O 
260 GOTO 210 

270 COLOR 1.15.8!SCREEN 2.2.1 
280 OPEN“GRP: " ASM 

290 DRAWC3BM0,180R29U21E25R19E4U20E12R37E18R15E6U20R16E20U1R16E5U15R11E16U1D1 
300 PAINT (1.191).3 

310 FOR K=1 TO 7 :B*="":F0RI=1T0 32 :READ A*:B*=B*+CHR*(VAL("fcH"+A*)):NEXT:SPRIT 
E*(K)=B*:NEXT 


320 VI=5 
330 GOSUB 750 
340 X=5:Y=164 

350 A=1:B=2:PX=240:py=-4:E=6:G=7 


J. 
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360 0N SPRITE GOSUB590 
370 PX=PX-4:PY=PY+4 

380 IF POINT(PX+8,PY+26)t>3 THEN PY=PY+3 

390 IF POINT(PX+8,PY +18)=3 THEN PY=PY-3SPX=PX-3 

400 IF PX<=0THENPY--4SPX=240 

410 IF F=0 THEN PUTSPRITE1.(X.Y),1,A 

420 IF F=1 THENPUTSPRITE 1,(X,Y), 1, C 

430 IF F=2THEN PUTSPRITE1.(X.Y). 1. 5 

440 PUTSPRITE 2.(PX.PY). 6. E 

450 GOSUB 490 

460 IF MM=0 THEN SPRITE ON 
470 SWAPE,G 
480 GOTO 370 

490 IF MM=QTHEN S=STICK(CT> 

500 IF S=3 THEN X=X+Z:Y=Y-2:SWAP A.B:F=0 
510 IF S=7 THEN X=X-25Y=V+25SWAP C,D5F-l 
520 IFS=5THEN F=2 

530 IF POINT(X+12,Y+16)<>3 THENY=Y+2 
540 IF POINT(X+12,Y+14)=3THEN Y=Y-2 
550 IF Y<=-3THEN 630 

560 IF X< =0 AND MM=1 THEN MM=0 :GOSUB 750 

570 IF X<=0 THEN X=0 

580 RETURN 

590 SPRITE OFF 

600 VI=VI-1 

610 MM=l:S=7:D=3!C=5:PY=209 
620 RETURN 

630 Pü=pu+i00 :beep:beep:beep 

640 LINE <70.180)-<180,192),15,BF i 

650 PSET <76,182),15: PRÍNTM,"PUNTOS»"SPU 

660 GOTO 340 

670 SCREEN1:KEYOFF 

680 LOCATE 8,10SPRINT"HAS MUERTO" 

690 LOCATE 3,15SPRINT"TUS PUNTOS HAN SIDO="5 PU 
700 LOCATE 1,20SPRINT”OTRA PARTIDA SI O NO ÍS/N¿" 

710 X*=INKEY* 

720 IF X$="S"OR X*="s"THEN CLEARS GOTO 270 
730 IF X$=“n"OR X*=“N“THEN SCREEN OsEND 
740 GOTO 710 

750 LINE(80,O)-(155,10),13,BF 

760 PSET (86,2) ,35 PRINTM, "VIDAS»" i VI 

770 IF VI=0 THEN 670 

780 C»3SD=4SF=2 

790 IF BB=0 THEN BB=1S F=0 

800 RETURN 

810 DATA 1,3,3,1,0,1,1,1,3,5,1,2,4,38,20,O,80,CO,EO,CO,80,80,80,FO,80,80,80,40,2 
O,10,10,18 

820 DATA 1,3,3, 1,O, 1,1,1,1,3,5,1,1,1,1,1,80,CO,EO,CO,80,80,80,80,CO,AO,90,40,40, 
40,40,80 




830 

DAT f 

^ 1 - 2 

;. 7.3 

■i 

-i 

¡Ti - F 

. 1, 

. 1. 

' i - 

2. 

4. 

8. 

8. 

18 

03 

O 

O 

O 

O 

>.80.0. 

8C 

K 80.80.CO.AO 

. 80. ¿ 

»0.20. 



10.“ 

840 

0.8< 

850 

860 

^.0 

DAT/ 

>.80 

DAT/ 

DAT/ 

V 1> 3 

¡■7.3 

■ 1 

.1 

fifi 

.3, 

.5; 

,9. 

,2". 

2. 

9F 

37 

2. 

2. 

1. 

80 

.eo.co 

.80.0.8 

ÍOf 

80.80.80 

. CO. i 

CE. F! 
> 70.3 

AO? 8C 

).80.8 

,44.30 

5.F8.F 

\Q. 0. 

yo. i. 

"0.0. 

7.F. 

0. 

F. 

0. 

IB 

O.Q.J 

. 37.: 

0. < 

37, 

>. 0. E 

. ÓF.¿ 

■3. 
MFj 

*.7 
tf 1 

L. ES - 
B.F. 

90 

F. 

.0.0.0 i 

ifOfOfl 

.0.0.0. 

30.80.C 

o. 

;o. 

0.0.0.C. 

CO.EO.FO 

“r CE, 
B8 » Dí 



O.F( 

D. E 

EO. 

, 80. C 

) 














870 

DAT f 

* 0. 1 

,. F. F 

.IB. 

37.ÓF.í 

W] 

-3; 

? f ¿ 

57. 

IB 

!.F 

.F 

.7 

. 1.0. 0 

.80.EO. 

r FC 

Í.F0. F8. D8.B8 

. 70 • F 

r 0.EO. 



CO. < 

:o¡ 

. 8( 

>.80. 

0.0 
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0 
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70COLOR 1.11.3 
80 SCREEN 3 
90 OPEN” GRP: " ASM 

100 PSET (5.80) . 6: PRINTPtl. "MOSQUITO” 

110 FORY—1 TO 1500:NEXT 
120 CLOSE 

130 SCREENO:WIDTH39:KEYOFF:SCREENO..0:0PEN"GRF:"ASM 
135 COLOR 15.1.1 
140 ZN=1:MS=5 

150 REST0RE970:F0RZ=1T020:READES;LOCATEO.Z¡PRINTEí:BEEP:NEXT 
160 IFINKEY$=""THEM160ELSECLS 

170 CLS:L0CATE3.12:PRI NT "ELECCION DE LAS TECLAS DE JUEGGL0CATE5.13:PRINT"(PAR 
A SUBIR?" 

180 L$=INKEY$:IFL$=“"ORLS<CHR$(33)ANDL$< >CHR$(30)THEN130ELSEIFL$=CHR*(30)THENS$= 
L*:L*=”CURSOR ARRIBA"ELSES$=L* 

190 LOCATE1.1:PRINT"SUBIR: ” i L* 

200 L0CATE5.18:PRINT"(PARA BAJAR?" 

210 L*=INKEY$:IFL*=""ORL$<CHR*(33)ANDL*< >CHR*(31)THEN210ELSEIFL*=CHRí(31)THENB$= 
L*:L$="CURSOR ABAJO"ELSEB*=L$ 

220 L0CATE1.3: PRINT 11 BAJAR: " í L* 

230 L0CATE5.18:PRINT"(PARA IR A LA DERECHA?” 

240 L*=INKEY*:IFL$="”ORL*< CHR$(33)ANDLS< >CHR*(28)THEN240ELSEIFLS=CHR*(28)THENDf= 
L*:L*="CURSOR A LA DERECHA"ELSED*=L* 

250 locatei.5:print”derecha:"sl'S 

260 L0CATE5.18:PRINT"(PARA IR A LA IZQUIERDA?" 

270 L*=INKEY*:IFL$=""ORL$< CHR*( 33)ANDL$< >CHR*(29)THEN270ELSEIFL*=CHR*(29)THENI*= 
L*:LS="CURSOR A LA IZQUIERDA"ELSEI$=L$ 

280 LOCATE1.7:PRINT"IZQUIERDA: "!L$ 

290 L0CATE5.18:PRINTSTRING*(30.32)¡L0CATE5.18:PRINT"ESTAS CONFORME (S/N)" 

300 L$= INKEY*: I FL$= " N " ORL*= ” ti" THENCLS: GOTO 170ELSEIFL$< > " S " ANDLÍ < > " 5 " THEN300 
310 SCREEN2.O:G0SUB1000:G0SUB1020 

320 LINE(O.O)-(255.191) .5.B:LINE(O.O)-(255.20V.5.BF:COLOR 15:G0SUB920:GÜ3UBR40:GO 

SUB950:G0SUB960 

330 K=RND(-TIME):F0RZ=1T0TM 

340 XS(Z> =INT(RND(1)*33):XS(Z)=XS(Z)*8:YS (Z)= INT(RND(1)*23+2):YS(Z)=YS(Z)*8 
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350 K=P0INT(XS(2) + 4, YS (2) + 4) : IFK< > 1THEN340 

360 DRAW“BM=XS(2)¡.=YS(2)¡C4R7D6L5U4L2U2":PAINT<XS(2> +4.YS(2)+ 4) .4:NEXT 
370 F0R2=IT010 

380 XM(2)=INT<RND(1)*33):XM(2)=XM(2)*8:YM(2)=INT(RND(1)*20+4):YM<2)=YM(2)*8-3 
390 K=POINT(XM(2)+3.YM<2>):IFK< >1THEN380 

400 X=XM < 2) :Y=YM(21:DRAW"BM=X< .=Y¡C6D1F3E3U1H3D2H1G2":PAINT < X + 3.Y + 2) .6:NEXT 
XV=INT(RND(1)*33):XV=XV*3:YV=INT <RND(1)*21+3):YV=YV*8+1 
K=POINT(XV+4.YV + 4) :IFK< >1THEN41Ó 
LINE(XU.YV)-(XV+7.YV+7).2.BF 

XA=INT(RND(1)*33):XA=XA*3:YA=INT(RND(1)*23+2):YA=YA*8 
K=POINT(XA + 4.YA+4):IFK< >1THEN440 
PUTSPRITEO.(XA.YA).8.O 
470 XM=INT(RND(1)*33):XM=XM*8:YM=INT(RND(1>*23+2):YM=YM*3 
480 K=POINT(XM+4.YM+4):IFK<>1THEN470 
490 DR$="D":GOSUE640 
500 ONSPRITE60SUB820:SPRITEON 
510 J=0:L$=INKEY* 

520 IFL$=S$THEN60SUBÓ00:J=1 
IFL^=B¥THENGOSUB620:J=1 
IFL.$=D*THENG0SUB640: J = 1 
IFL$=I*THENG0SUB670: J = 1 
IFJ=1THEN730 

SOUNDO.220:S0UND1.3:S0UND2.255:S0UND3.5:S0UND8.5:IFJ=1THENF0RT=1T010:NEXT:SO 
UND3.6 

580 K=RND(-TIME)+.1:IFK<2N/10THEN790 
G0T0510 

IFYM >28THENYM=|YM-3: G03UB700 
RETURNi 

IFYM<177THENYM=YM+3:G0SUB700 
RETURN 

IFXM< 247THENXM=XM + 8 
650 IFDR*="I"THENKP=2:G0SUB720 
660 DR(6= " D " : G0SUB700: RETURN 
670 IFXM >7THENXM=XM-3:DR$=”I”:G0SUB700 
680 IFDR*="I"THENKP=1:G0SUB720 
690 DRÍ="I":G0SUB700:RETURN 
700 IFDR*="I"THENSP=2ELSESP=1 
710 PUTSPRITESP.(XM.YM).10.SPTRETURN 
720 PUTSPRITEKP.(-3.191)..KP:RETURN 
730 TC=POINT(XM+4.YM+4) 

740 IFTC=6THENLINE(XM.YM)-(XM+7,YM + 9) .1 , 

750 IFTC=4THEN330 
760 IFTC=15THEN910 
770 E=E-10:G0SUB920:IFE<=0THEN330 
780 GOT057O 

790 IFXM<XATHENXA=XA-4ELSEIFXM>XATHENXA=XA + 4 
300 IFYM<YATHENYA=YA-4ELSEIFYM>YATHENYA=YA + 4 
810 PUTSPRITEO. (XA. YA) .. . O: G0T0510 
320 RETURN830 

830 SPRITEOFF:F0R2=1T03:S0UND1.1:S0UND3.5:F0RT=0T0255:SOUNDO.T:NEXT:NEXT:S0UND8. 


bf:beep:e=e+ioo:G0SUB920:mn=mn-i 


840 MS=MS-1:G0SUB960:IFMS<1THEN360 

850 LINE(O.20)-(255.191).1.BF:DRAW"BM50.120":PRINTM."CONTINUAMOS (S/N)”:L*=INPU 
T*(1):IFL*="N"ORL*="n"THEN870ELSEIFL$="S"0RL$="s"THENG0SUB1020:G0T0310ELSE850 
860 LINE (O. O) -(255. 191), 1. BF: DRAWBMIO. 120" : PRINTM . "HAN MUERTO TODOS TUS MOSQUI 
TOS “ : F0RT=1 T015: FORS= 100T01STEP-1: SOUNDO. S: S0UND1. T: S0UND8.4: NEXT: NEXT 
870 COLOR15.4.4:SCREENO:L0CATE3.10:PRÍNT"PARA OTRA PARTIDA PULSA LA TECLA P”:LOC 
ATE3.12:PRINT"PARA OTRO PROGRAMA PULSA LA TECLA F“:S0UND8.O 

380 R*=INKEY*:IFR*=""THEN880ELSEIFR*="P"0RR*="p”THENRUNELSEIFR*< >"F"ANDR3K >”+”TH 
EN380 
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890 CLOSEftl;CLEAR:COLORIS,4,4:SCREENO,,l:L0CATE4,10:PRINT"PARA ELSIGUIENTE PROG 
RAMA“:L0CATE4,12:PRINT"PULSA PLAY EN EL CASSETTE" 

900 CLOADI 

910 F0RZ=1T0TM:LINE <XS<Z),YS(Z))-(XS(Z)+7,YS <Z)+7),1,BF:PT=PT +10:PLAY"T255L64N=Z 
;":G0SUB940:FORT=1T025:NEXTT.Z:ZN=ZN+1í G0SUB1020:GGTO310 

920 LINE<90,0)-<125, 10) . 5. BF: DRAW"BM10. 1 " : PRINTPtl . USING"ENERGIA: Ptfcfth" i E: IFMN=0T 
HENLINE<XV.YV) -<XV+7,YV+7),15.BF 
930 RETURN 

940 LINE <202. O) - (255. 10) .5. BF: DRAW" BM 130. 1 " : PRINThl. USING "PUNTOS: í PT S RET 

URN 

950 LINE <218.11) - <242.20) .5. BF: DRAW " BM130. 11" : PRINTPtl. USING ” HABI TAC ION: PtPtPt “ ; ZN: R 
ETURN 

960 LINE < 105. 11) - < 126.20) . 5. BF: DRAW" BM10. 11": PRINTPtl. USING"MOSQUITOS: Pt” : MS: RET 

URN ; . . .. . . . .------. 

970 DATA" M O S Q U I T O"..“En MOSQUITO tendr s que sobrevivir en"."un 

a habitad"n, que es un ambiente muy".hostil para los de tu especie..." Para te 
ner eneróla comer s de los"."Frutos que hay en la habitaci n. pero 

980 DATAcon dudado de no tropezar con 1 os.insectici das ni con el aracnido que.t 
ratar n de eliminarte..." Por -fin podrs salir por la ventana'¡cuando te hayas 
comido todos los frutos.de la habi tac i"n..." El movimiento del mosquito se real 

990 DATAcon las teclas que tu eliias..." PULSA CUALQUIER TECLA PARA CONTINUAR 

ÍOOO DATA99.50.30.30.47.255.42.21.198.76.120,120.244.255,34.168,24,60,102,255,18 
9,165,165,165 

1010 RESTORE1000:FORSP=2TOOSTEP-1:T$= "":F0RX=0T07:READE:T*=TÍ+CHRÍ <E):NEXT:SPRIT 
E* < SP)=TS:NEXT:RETURN 

1020 E=500:MN=10:TM=10 + ZN*5:XS <1)=0:YS <1)=0:ERASEXS,YS:DIMXS <TM) ,YS <TM) :RETURN 
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90 
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100 

’ 0 0 0 0 0 

0 0 0 0 

0 0 0 0 ( 

O 

o 

G 

O 

O 

t .t.r.t. \ .T.t.t.r 

J 

110 

y 




.j .i. 

L.;.i..i...,.;.i.I.|.. 


120 

COLOR 3.6.1C 

1 .. . 

;• .... ' j.1. ... 

1.U4.1—.).1.j.L.i.).j. r .d 

\ Í ...! \ I ; ¡¡ j í 

: : .4—"-- .~--f.I.;•••".f~.4. 


130 

SCREEN 3 



| . i 1 i | I : i I ! i j j 



140 

OPEN"GRP: "ASM 


1 1 1 i 1 { 1 i 




150 

PSET<35.80) . 

6: PR INTPt 

1. "CRUZADA* 


160 

FOR Y=1 TO 1 

50o:next 



1" f i .§T ~t.].f.|" .1 T" 


170 

CLOSE 



| . 4.|.4 . ! . i . 4.1. 

1. T .!; r . ¡ 

..f.f.f.t.j.•4—.i 


180 

COLOR 1.14 

j— . j . 

; . 4- -f 

j— — \ —¡- r ~ — 

I 1 í 1 \ 

:. 4—4 . . { . . 


190 

SCREEN 1 







200 

LOCATE 3.10: 

PRINT"JOTSTICK O 

CURSOR " J/C>" 

I ! | jj j 

..f .f. ! .}. i .j.. “f" f- 


210 

X*=INKEYS 1 



1' ! ; j | j i ! 


! \ ] \ I 


220 

IfIfi:iFi>i3 

; THEN 1= 

i 



f j I " | | j: | i 


230 VDP(7)=I 
240 IF X$=" J '* OR X*-"i H THEN CT=l:G0T0270 
250 IF X*="c 11 OR X$= ,, C H THEN CT=0:G0TG270 
260 GOTO 210 

270 COLOR 15.4.4:SCREEN2.2:GOSUB 610 

280 HX=i16:HY=58:BX=116:BY=55:T1=150:T2=150:T3=150:T4=150:Pl=5:P2=4:P3=4:P4=5:DI 

=4:D2=5:D3=5:D4=4 

290 RUT SPRITE 4.(HX.HY).1.0 



310 

320 

PUT 

PUT 

SPRITE 

SPRITE 

: 5 

’ 6 

r 1105* 

...(115. 

TI 

T2 

)*1.P1 
).í . P2 



.i.1 1 


................. 

4H— ■ |— 

LJ L i ! ■ i \ 1 L, i , j i L 

l r } =■ i i X i T [ r 

P? 

330 

PUT 

SPRITE 

: 7 

.(124. 

T3 

).1.P3 



1.-j 





i' T r.i.i. f. t .i.f.f.r.i.r 

¡..¡.f.h..f.i.}.f:.1.|.4. •• 

! 1 M ! 1 M I ! 1 ! 1 

; 

x 

340 

PUT 

SPRITE 

: 8 

. ( 

133. 

T4 

).1 . P4 

fc 1 

350 

A=STICK(CT 

) : 

B= 

STRijB ( 

CT) 








\ .?. | . i . f ..;. j .|~. j- . f .?■.§••• 

i s jl_| j i) j -i _1 

X 

360 

370 

330 

IF f 

IF f 

IF I 

i=7 THEN 

V=3 THEN 

)I=OANDA= 

IF HX> 

IF HX< 

7ANDBX 

100 THEN H> 

140 THEN H> 

>100THENBX= 

:=HX-2 

I=HX + 2 

: BX -2 





« . . 4*^4 



390 IF DI=0ANDA=3ANDBX<140THENBX=BX+2 
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400 IF B=-1 AMD DI=0THEN DI=1 

410 IF DI = 1 THEN BY=BY+5 

420 IF BY >150 THEN BY=55:BX=HX:DI=0 

430 K=INT<RND<1)*6) 

440 IF K=OTHEN T1=T1-2:SWAP P1.D1 
450 IF K=1THENT2=T2-2:SWAPP2.D2 
460 IFK=2THENT3=T3-2¡SWAP P3.D3 
470 IF K=3THEN T4=T4-2:SWAP P4.D4 

480 IF TI< 790RT2<790RT3<790RT4<79THEN :GOTO 600 

490 IF BX>104 ANDBX<112 AND BY>T1AND BY<T1+4THENFG=1:GOTO 540 
500 IF BX>115 ANDBX<123 AND BY>T2AND BY<T2+5THENFG=2:GOTO 540 
510 IF BX>124ANDBX<132 AND BY>T3AND BY< T3+5THENFG=3: GOTO 540 
520 IF BX >133ANDBX<141 AND BY>T4AND BY<T4 + 5THENFG=4:GOTO 540 

540 IFFG=1 THEN FORN=T1TO 150 :T1=N:PUT SPRITE 5.(105 : N>.1.P1:SWAP Pl.DI.NEXT N. 

550°IFFG=2 THEN F0RN=T2T0 150 :T2=N:PUT SPRITE 6.(115.T2).l.P2:SWAP P2 ; D2:NEXT N 

56Q T IFFG=3 THEN FORN=T3TO 150 :T3=N:PUT SPRI TE 7.(124.T3).1.P3:SWAP P3 V D3:NEXT N 

57° T ?FFC-4 THEN FORN=T4T0 150 :T4-N:PUT SPRITE fe,(T4,,1,P4lSUAP P4,D4:NEXT N 

:G0T0590 

580 GOTO '290 . 

590 DI=0:BX=HX:BY=55:GOTO 290 

600 open-grp: "asm:pset <o ; 30 ) :printm ; -tu castillo ha sido invadido-:for n-i to 

5000: NEXT N: RIJN 

6io F0R K=0 TO 5 .... . . 32 :READ A$:B$=B*+CHR*(VAL(“8<H"+A$) ):NEXT:=PRIT 

E$ <K»=B*:NEXT 

620 LINE(O.150)-<255.190).9.BF 
630 LIME(104.77)-(143.160).10.BF 
4640'PUTSPRITE1.(100.70).10. 2 

650PUTSPRITE 2.(116.70).10, 3 
660 PUTSPRITE 3.(132.70.10. 3 

670 RETURN í • •„L „ _ . 

630 DATAO.O.O.42.81,31.99.BD.BD.5A.3C.13.13.18.O.O.O.O.O.O.O.O.O.O.O.O.O.O.O.O.0 
.0. 13.3C . 7E . 7E . 3C . 13.0.0.0. O. O.O. O.O.O.O.O.O.O.O.O.O.O.O.0.0. O. O. O.O.O.O 
690 DATAE7.A5.A5.BD.FF.FF.7F.3F.1F.F.O.0.O.O.O.O.38.23.28.EF.FF.FF.FF.FF.FF.FF.O 
.0.0.O.O.O 

700 DATA 1C.14.14.F7.FF.FF.FF.FF.FF.FF.O.O.O.O.O.O.E7.A5.A5.BD.FF.FF.FE.FC.F8.F0 
710°DATAJL?i9 r 3D.3D. 1 A. 3C. 58.98.98. 18. 1É. 22.43. 40. CO. O. 0.0. O. O. 0.0. O. O. O. O. 0. O. O. 

720 DATA 30.98.BC.BC.53.3C.1A.19.19.18.78.44.C2.2.3.O.O.O.O.O.O.O.O.O.O.O.O.O.O. 

o.o.o!. 
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SALVAMENTO 
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ÓO ? 




7p ’ 
30 ’ 

LUIS SANGUI 

NO ARIAS 


90 : 

REMd 

1936 


100 

110 

1 Ó 0 0 0 0 

0 0 0 0 

0 0 0 0 0 0 0 0 0 0 




120 

COLOR 15.12. 

1 : KEY OFF ;.. . . . .. . 

130 

SCREEN 3 



140 

OPEN"GRP:"AS 

¡1 


150 

PSET(10.30). 

12: PRINTPtl . " SALVAME ! " 


1Ó0 FOR 1=1 TO 1500 
170 NEXT 
130 GLOSE 
190COLOR 1.4.1 
200 SCREEN 2. 2 

210 OPEN“grp:"ASI 
220 DEFINT X.Y.J.K 

230 FOR K=1 TO 4 :Bí=”“:F0RI = 1TO 32 :READ A$:B*=B*+CHR*(VAL("&H"+A$)) :NEXT:SPRIT 

E*(K> =B$:NEXT 

240 AA=1:BA=2:HU=0¡HI=3 

250 GOSUB 460 

260 CIRCLE(227. 90).15,15 

270 GIROLE(227.90).10.15. 

230 CIRCLE(227.90),7,15 
290 LIME(O.93)-(255.O). 5. BF 
300 FOR ES=0 TO 255STEP2 
310 YE= INT (RND (1 ) *-95) 

320 PSET(ES.YE).INT(RND(1)*14)+1 

330 NEXT.. . . . . 

340 CIRCLE(55,35).15.11 
350 PAINT(50,35),11 
360 CIRCLE(65.35).15.5 
370 PAINT(65.35).5 
330 TIME=0 

390 ON STRIGGOSUB.430.i. .. . . .. .. . . . .. . . . 

400 STRIG(CT) ON 
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. 5.BF 


410 TI=TIME/50 
420 GOTO 420 
430 STRIG(CT) OFF 
440 X=X+1 

450 IF X>210 THEN 620 
460 PUTSPRITE 1 . (X. 85). 1, AA 

470 PUTSPRITE 2 ,(220.80+HU),1 
480 IF RR=0 THEN RR=1 :RETURN 
490 IF TI>35 THEN 520 
500 SWAP AA.BA:SWAP HU . HI 
510 GOTO 390 
520 YH=85 

530 CIRCLE(227.90 >.15.4 
540 CIRCLE(227.90),10,4 
550 CIRCLE(227,90),7,4 
560 LIME(210,70)-(245,93) 

570 PUTSPRITE 2 ,(220,209),1,3 
580 YH=YH+l:IF YH>192 THEN MU=1:GOTO 620 
590 PUTSPRITE 3 ,(220,YH),1,4 
600 FOR 1=1 T025:NEXT 
610 GOTO 580 
620 COLOR 1,14 
630 SCREEN i 

640 IF MU=1 THEN LOCATE 0,6:PRINT" 

AHOGADO" 

650 IF MU=0 THEN LOCATE 0,6:PRINT" 

SIEMPRE" 

660 LOCATE 2,10:PRINT"HAS TARDADO "5 TI 5 "SEGUNDOS" 

670 LOCATE 2,20:PRINT”OTRA PARTIDA SI O NO iS/N¿“ 

680 AÍ=IÑKEY* 

690 I=I+l:IFI>13 THEN 1=0 
700 VDP(7)=1 

710 IF A#="S" GR A*="s"THEN CLEAR:G0T0190 
720 IF A$=''n" OR A*="N" THEN END 

730 GOTO ¿80 j J | ---f . „ 

740 DATA0.0.0,0,0,3,E7*9F,8,F0,80,0,0,Q,0,0,0,0,8,14,22,ED.FC.CC,20,10,10,10,20, 

O, O, O, O, O, O, O, o’. C3,27, 1 F , 8, 11,26, CO, 80,0, O, O, O, O, O, O, C , EC , FE, CD, 81, O, 0,0,0,0,0,0 
750 DATA 9,5,3,2,C4,25,12,9,7,3,3,3,1,0,O,O,20,40 

760 DATA 80,80,46,48,90,20,CO,#0,80,80,O,O,0,0,O,D,3,4,5,2,1,47,AB,11,1,3,7,8,5, 
2.80,40,80,40,46,88,10 EO,CO,80,80,CO,EO,10,A,4 


LO SIENTO 


TU CHICA SE HA 


ERES UN HEROE ........... ELLA TE AMARA 
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SUBMARINO 


ío ’. i.nJ 

] , i í i | j | ¡ i ; i I 1 i 1 

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

1 20 * 0 

0 0 0 0 0 0 0 

¡ 30 * 0 

0 00 SUBMARINO 000 0 

40 ’ 0 

0 0.0 I. .: 0 0 0 0.1 

50 J 0 

o o jo o o o o o o o o o d ü o o d o 

:: .60 *4— 



70 COLOR 3.6.10 
80 SCREEN4 
90 OPEN"GRP: "ASM 

100 PSET (45.80) .ó: PRINTft 1, " SUBMA " 

110 FOR Y=1 TO1500:NEXT 

120 COLORIS,5:SCREENO,O:WIDTH40:KEYOFF:REST0RE500:F0RZ=1T022:READES:PRINTE*;CHR* 
<7>:next 

130 IFINKEY*=""THEN130ELSESCREEN2:COLOR1O 

140 G0SUB540:LINE(0.0)-<255, 10).13. BF:LINE <0,70>-<255, 191) , 4,BFSNS=5:NT= 10 i TT=OÜ 
NB=TT:TB=TT:YB=62:G0SUB470:G0SUB480:G0SUB490 
150 X=127:Y=170:G0SUB270 
160 L*=INKEY* 

170 IFL*="F"ORL*=“f"THEN580 
180 IF < L*="Q“ORL*="o”)ANDX >1THENX=X-1 
190 IF <L*=“W"ORL*="w")ANDX<247THENX=X +1 
200 G0SUB270:G0SUB340 

210 IFL*=CHR* <13)ANDTP=OTHENTP=1:XT=X:YT=Y:NT=NT-1: 

220 IFTP=0ANDNT=0THEN420 
230 IFNS<1THEN410 
240 IFTP=1THENG0SUB280 
250 GOTO 160 
260 G0T0260 

270 PUTSPRITE2,(X,Y),14,2:PUTSPRITE3,(X,Y+8) 

280 IFYT>70THENYT=YT-5ELSE300 
290 PLÍTSPRITE4, <XI, YT) , 10,4: BEEP: RETURN 

300 PUTSPR1TE4, <XT,191) ,,4:TP=0:IFXT<=XBANDXT>XB-LB*8THENXE=XT:YE=YB:G0T031OELSE 
RETURN . .. .. . . . 


iG0SUB480:TT=TT+1 




14.3:RETURN 


;. 
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310 S0UND1.10:F0RZ=255T021OSTEP-1:PUTSPRITEO.(XE.YE).6.O:FORT=15T01STEP-1:S0UND8 
.T:NEXT:PUTSPRITEl.(XE.YE),9.1:F0RT=ÍT030 :next:PUTSPRITE1,(XE.191),.i:next ^ | 

320 PUTSPRITEO.(Xe!191),,O:F0RZ=6T017:PUTSPRITEZ.(-8,191),,Z:NEXT:XB=-100:IFXE=X 
TTHENMB=NE+1;G0SUB490:NT=NT + 4-LB:G0SUB480ELSENS—NS-1 

340 IFX^LB*8< a THE N F0RZ.6T017:PUT S PRITEZ,<-8,19n,,Z:NEXT:BB.INT<RND,-TIME,.é.l, 

■XB=2S0'TB=TB+1:IFBB=1THENKB=6:LB=1ELSEIFBB=2THENKB=7íLB=1ELjSEIFBB-3THENKB—8.UB 
2ELSEIFBB=4THENKB=10:LB=2ELSEIFBB=5THENKB=12:LB=3ELSEKB-15!LB-o B=RB+3 . NEXT 

350 XB=XB-3:RB=0:F0RZ=KB+LB-1T0KBSTEP-1:PUTSPRITEZ,(XB-RB.YB).1.2. 

360 IFX>XBANDX<XB+4THENCS=1:XC=XB:YC-70 

.- 

THENNS=NS-1:G0SUB470:XE=X:YE=YG:GOSUB310:CS=0:PUTSPRITE5. (XC .191) . . 5 

410 F0RZ=20T01OSTEP-1:PLAY"T255L64N=Z < ":NEXT:COLORIS:DRAW"BM40. 120 .PRINTM , TU 

FLOTA DE SUBMARINOS":DRAW“BM40,130PRINTM , "HA SIDO DESTRUDIDA":G0T0430 
420 F0rI=20T01OSTEP-1:PLAY■T2S5L64N=Z;»:NEXT:COLORIS:DRAW" BM40, 120»:PRINTFJ1, TE 
QUEDASTE SIN TORPEDOS":DRAW”BM40. 130“:PRINTM. "HAS SIDO DESTRUDI DO .G0T0430 

430^F0RT=1T03000:NEXT:C0L0R151SCREEN0IL0CATE5.6;PRINT"PUNTUACION:":L0CATE2 r 8:PRI 

NT"N. TOTAL DE TORPEDOS DISPARADOS: "5 TT:LOCATE2.10:PRINT"N. TOTAL DE BARCOS ENEM 

IGOS:";tb:locatez. 12 :print"M. barcos enemigos hundidos:":nb 

440 LOCATE 1 . 14: PR I NT " HAS HUNDIDO EL" i INT <NB*100/TB> ? "% DE LA FLOTA ENEMIGA” ■.LOCA 
TE 7.20: PR INT "PAR A OTRA PARTIDA FULSA F'”: LOCATE 7.22 : PRINT " PARA OTRO PROGRAMA PU 

LSA O” 

450 L$=INKEYS: IFL*=" 11 THEN450 

460 IFL$= * P“ORL*="o“THENRUNELSEIFL$="O"ORL*="o"THEN580ELSE460 

470 LINE <86. O) - < 112 . 10) . 13.. BF: DRAW" BMO . 2": PRINTM , USING”SUBMARINOS: RR " 5 NS: RETURN 
480 LINE(120.0)-(136.10).13.BF:PUTSPRITE20.(107.1).10.4:DRAW"BM120.2”:PRINTM.US 
ING”PtR" ! NT: RETURN 

490 LINE(230.O)-(255.10).13.BF:PUTSPRITE21.(140,0).1O.8:PUTSPRITE22,(148,O),10,9 
: DRA W"BM160,2" : PRINTM , US ING "HUNDIDOS: PtPtPt" ;NB: RETURN 
500 DATA " S U B M A R I W O" . 

510 DATA '* Eres el Cap i t n de un submarino en\ "querrá, y por lo tanto tu misi M n 


a 1 05 barcos enemigos. 


Te bastar un torpedo para hundirlos".y c 
El enero i qo te lanzar 


uando lo consigas recibir s m s.torpedos. 

520 DATAterrib1 es cargas de profundidad. . r " El submarino se mueve a la izquierd 
a","con Q y a 1 a derecha con Wi el torpedo".se dispara pulsando < ENTER >. . . " lE 1 
iuego termina al ser hundido cinco"."veces, al acabarse los torpedos o al"-pulsa 


r la tecla F. 

530 DATA. r" PULSA UNA TECLA PARA COMENZAR EL JUEGO" 

540 FORY=0T017 :T*=" U : F0RX=OT07:READE:T^=T* + CHR*(E) :NEXT;SPRITES(Y)=T$:NEXT:RETUR 
N 

550 DATA133.80.132.41.134.53.74.149.34.20.165.66.165.153.74.36.16.56.124.124.254 
.254.238.198.198.198.233.254.124.124.56.40.16.56.56.56.56.16.56.40.O.0.0.60.36.6 
0.60.60 

560 DATAD.0.2.73.33.255.127.62.0.0.0.0.8.23.254.127.0.7.116.55.255.127.63.31.64. 
192.39.246.255.255.254.252.0.0.73.73.255 . 127;. 63.31.32.60;. 34.62.255.255.254.252.0 
.0.233.102.255.127.63.31.0.127.170.213.255.255.255.255.43.243.172.84.255.255.254 

.252. 

570 DATA4.60.20.255.63.31.15.7.16.241.33.255.255.255.255.255.240.168.34.255.252. 
5 2 8 5 0 2 ’cI\^ 0 CRE8N0:Y0CATE4;'i2^;NT-P»RA^ EL SIGUIENTE PROGRANA " : LPCATEA , 1A E PRINT , 

PULSAPLAY EN EL CASSETTE 
590 CLOAD 
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SALTO 


10 7 OOO00 O O 000o o o o o o o o o 
2b 7 oo oo oooo 

30 7 O O 0 O SALTO 0000 

40 f O O O O 0000 

50 f O O 0 0 0 0 0 0 0 0 0 0 O 0 0 0 0 • o o 

6Ó 7 . 

70 7 LUIS SANGUINO ARIAS 
30 

90 7 1986 

100 7 0000000000000000000 
110 7 

120 CLEAR*. COLOR 3.6.10 

130 SCREEN 3 

140 OPEN “ GRP: ” ASRt i 

150 PSET (55.80) . ó: PRINTPtl . "SALTO” 

160 FOR Y=1 TO 1500:NEXT 
170 GLOSE 

180 COLOR 1.2.13:SCREEN 2.2.1 

190 DR AW ,! C 15BM0.25F65R29F1D85R162U IBM O . 19C7R2E8R i 4F28R5E24F5E6F11U3E7F39D9F9E39F 
6U1E6R1D5U1E3D2F8UiE7F23D12U13“ 


210 

PAINT ( 1.191 ) , 15 







220 

B$= ,! 

1 ":for K=i TO 3 :: 

B$== n ! 

1 :F0RI = 1T0 32 ; READ A$: B$=B*+CHRS ( VAL < " 8¿H ” + A$) 

):NEXT 


:SPRITE* (K> =BS:NEXT 
230 OPEN ” GRP : ” ASPti 
240 G=.05 

250 SOUND ó. 15:SOUND 7,7'SOUND 8.1ó: S0UND 9. 16: SOUND 10. 16:SOUND 11.0 :SOUND 12. 

1ó:SOUND 13,0 

260 ON STRIG GOSUB 370 

270 x=0;v=3:A=2íB=3 

280 Y = Y + 1 

290 STRIG(O) ON 

300 X=X +1 

310 PUTSPRI TE 1 , < X,Y) . 1. i 

320 PUTSPRITE 2 , < X , Y + 1 ó > , i , A 
3301 IF X >95 THEN Y=(Y+(1/G) ) 

340 IF Y >155 THEN 400 


1987 - AMIGOS DEL MSX - 21 










































350 IF Y>60 THEN A=B:GOTO 300 ' 

360'GOTO 230 , 

370 STRIG(O) OFF 
330 G=G+.l 
390 RETURN 
400 J=J + 1 

410 A(J)=X. .... .. .. .. .. . 

420 IF A < J) > J J THEN JJ=A(J> j. 

430 LINE (60,O)-(200,10),15,BF 

440 PSET(66,3) . 15:PRINTPti, "ULTIMO SALTO*¡ X 

450 FOR 1=1TO100:BEEP:NEXT 

460 UNE (60. O) - (200. 10) . 15. BF ) 

470 PSET(70.3).7:PRINTftl."MEJORSALTO="!JJ } 

480 FOR I=1 TO 1000:NEXT 

490 IF J >4 THEN 510 . . . . . .. ... . . . . 

500.GOTO 240 . : 

510 COLOR 1.15.6 
520 SCREEN 1:KEY OFF 

530 LOCATE 7,10:PRINT“TU MEJOR SALTO” 

540 LOCATE5.13:PRXNT"HA SIDO=";JJ5"METROS” 

550 LOCATE1,20:PRINT”OTRA PARTIDA SI 05 NO IS/N¿" 

560 X*=INKEY* 

570 IF X$= ”S" OR X$=”s”THEN RUN 

530 IF XS¡= " r ," OR X«= " N " THEN CLS*. SCREEN O : END 

590 GOTO560 

600 DATAO. 1, 3, ¡3,3,1,3,7,7,7,7,7,3,3,7,7, 80,CO,CO,EO.CO,SO,30,CO,CO,CO,EO,BO,93,c 
.84.33.7.7.1.0.21.12.3.5.3.1.0,O.O.O,O.0,90.EO.EO,FO,30,60,CO,80,80,80,80,40,20, 

10. C, O : . j. . . ..... . . :. . .■. . 4 4~ — 

610 DATA7.7.3.3.3.3.6.6.C.C.1C.1E.FF.0.0.0,38,88,3,8,3,3,8,3,1C,8,0,4,F8,0,0,0 ¡ 

.5.!. i .|. *4 .‘..4.' I. *.4 .'4.*~4 ‘ i -'.4 * .*.i. 1.?■* .•■•r I.r .i. \ ..f.r . | |. . : .I ]““ ! i ¡ 

i I ! ! \ I I i I i [ i i i I i í i 1 I i' ! i ! I ! ! ¡ i i I i 5 I | i 1 1 i. 

T i \ I I { i j | \ \ l | { |:| ! I- I j Vi f !• i l 1; j [ | ¡ |*. i 1 i., i ^| • | 

• í • - * < ' ~ v ~ * i ' í + t ¡ ,4 í ..i.r.i.i.¡.I 

i § |; r \ | | | i I i ' I ! í *. ;|: f _| ^ ^ j, ¡ . É .. | „ ...j; i |., ^ | . \ 1 i l . .; 


i.[.].i....:..i._I._L.I.:.i.;.L...;.|.i.i.4. i .i.4.-4.}• 

j | ! ■ | ¡ | ! i | | j IM | . | | | :| | | i ! ; • i 
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b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 



SUPERMOTO 


10 í* 0 0 0 0 0 0 0 0 O O O O O O O 0 0 0 0 

20 f- O O O O o O O O 

30 7 O OO OSUPER MOTO O O OO 

40 7 OO OO pO OO 

50 7 OO O O O O O O O O O O O O O O 000 

60 7 

70 7 EUGENIO GARRIDO GOMEZ 
SO. 7 .1 

90 7 1986 . . 

100 7 000 O O O O O OO OO OO OO OO O 

110 7 

120 COLOR 3.ó.10 

130 SCREEM 3 

140 QPEN H GRP: "ASM 

150 PSET < 45.30) .ó:PRI NTPt 1 . " SUPER ” 

160:FOR Y=1 TO 1500:NEXT 

170 CLOSE. 

180 COLOR 1.14 
190 SCREEN 1 

200 LOCATE 3.10:PRINT M JOTSTICK O CURSOR "J/C)" 

210XS¡=INKEY* 

220 1=1+1:IFI>13 THEN 1=1 
230 VDP(7)=I 

240 IF X$-"J"OR X$="i " THEN CT=1;G0T0270 
250 IF XS= ,, c"OR IX*= n -C*\ THEN CT = 0:GQTG270 
260 GOTO 21O 

270COLOR 15.4.1:SCREEN 2.2 

280 GOSUB 520 

290YH=20:XH=34:GOSUB 510 

300 PUTSPRITE2.CYH.XH).ll 1 

310 PUTSPRITE 1. ( YH. XH).3. 2 

320 YH=YH+VÍ 

330 IF YH >255 THEN XH=34:YH = 0 

340 A=STICK(CT):IF A=F THEN VE=VE+1:LINE (O.170)-(VE.176)■ó.BF:V1=VE/1O 
350IF A=5 THENVE=VE-3íLINE (VE.170)-(255.176).4.BF:Vl=V/4 
360 IF V1< =0 THEN VE=0:LINE (VE.170)~(255. 176) .4 f BF 
370B=STRIG(CT) 
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380 IF B=-1 AND EN=0 THEN SA=1:EN=1 
390 IF SA =1 THEN XH=XH-2 
400 IF BA=1 AND XH<84 THEN XH=XH+3 
410 IF SA=1 AND XH=<60 THEN BA=l:SA=0 
420 IF XH= >34 THEN EN=0:SA=0:BA=0 
430 IF POINT (YH+16.XH+ló)=1 THEN GOTO 460 

440 IF XH= >34 AND YH=>240 THEN OF-OF+1:RESTORE!VE=0:GOTO 280 
450 GOTO 300 

460 FOR N=1 TO Í0:CIRCLE (YH+4.XH+4).N.ó:NEXT N 

470 FOR N=1T020:YH=YH+5:XH=XH+SIN <N*iO) 

480 PUTSPRITE 1. < YH. XH). 8. 2:NEXT N 

490 FOR 1=1 T013:FOR N=1 TO 8:A=INT<RND(1)*255):VPOKE 4352+N.A:VPQKE 12544+N r A:Y 
H=YH+3:XH=XH+SIN (N/10) 

500 NEXT I/.RUN 


: NEXT.’ SPRIT 


510 PSET (82+11.100).15:DRAW "S4E10D10L10”:PAINT (97.93).15:FOR 0=1 TO OF:CIRCLE 
<lbo+(0*ll>.95),5.l:CIRCLE (100+(0*11) ] 95) r 3 ; 1:PAINT ( 100 +( 0 * 1 1> ? 95).1:NEXT 0:R 
ETURN 

520 FOR K=1 TO 4 :B¥="" : FORI = 1TO 32 :READ A*:B«=B$ + CHR$(VAL("LH M +A*) ) 

E* ( K) =B<$: NEXT 

530 LINE (O.50)-(255.60).10.BF 

540 LINE (O.100)-(255.110).1O.BF 

550 PUTSPRITE 2.(20.34).1. 1 

560 PUTSPRITE 1.( 20. 34). 8 . 2 

570 PUTSPRITE 5.( 240. 34). 10.4 

580 FOR N=0 TO 255:VP0KE 6144+512+N.32:NEXT N 

590 FOR N=1 TO 8:A=INT(RND(1)*255):VPOKE 4352+N.A:NEXT N 

600 FOR N =0 TO 8:A=INT(RND(1)*255 )YvPOKE 81 92 +4352 + N.A:NEXT N 

620 DATAO.0.0.0.0.0.0.0.61.9D.E.77. 94 . BF. 90.60. O. O. O. O. 0.20. 10. D3.DO.BE.71.EC.5A 

,92;12.C.O.1.1.1.3.6.6.6.3.1. 1 ;1.0.O.O.O.O.80.80.O•O.CO•20.0.0.O.O.80.0.0.0.O■O. 
O.1.F.F.19.19.19.19.18.IF.19.19.1F.C.C.0.0 

630 DATA30.F0.F0.18.58.18.F8.58.F3.98.98.F8.30.30.O.O.O.FF.B5,DF.2D.D3.F7.DA.F1. 
97 .F 7 .D7.FB.FF.O.O.O.FF.28.BD.DF,AD.BB.2B.3C.6E.FC.BF.7D.FA 








































...SI TIENES 
UN MSX, 
ESTAS SON 
TUSREVISTAS 


( 91 ) 266 66 01 
( 91 ) 266 66 02 


SUSCRI¬ 
BETE 
LLAMAN 
DO A 


LOS 

TELE¬ 

FONOS 
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BIBLIOGRAFIA 


Para Programadores MSX 
tu fiel compañero. 

Esto no es un libro para el 
principiante novato, al con¬ 
trario, introduce al progra¬ 
mador MSX ''dentro" del or¬ 
denador, para mostrarle exac¬ 
tamente como funciona y co- 
moobtenerel máximopartido. 

Los autores han dividido 
su libro en dos partes. 

La primera parte cubre el 
diseño del sistema, como el 
vocabulario de BASIC se rela¬ 
ciona con los ordenadores 
MSX, y una introducción có¬ 
digo máquina. Encontrará ex¬ 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los 
circuitos de vide y sonido. 

La segunda parte se dedica 

al uso del lenguaje ensam- _ 

blador en el sistema MSX. Los principales apartados incluyen los 
puntos: 

— El procesador de pantalla de vídeo. 

— El circuito de sonido AY-3-8910. 

— Entradas/Salidas. 

Tanto si necesitas escribir programas de alta eficacia o 
solamente quieres como trabaja tu ordenador, este libro será 
inestimable. Pensamos que rápidamente se convertirá en el 
texto base para aquellos programadores que quieren hacer 
algo más que escribir programas en BASIC. 

P.V.P. 1800 pts». 



GUIA OEl PROGRAMADO» MSX 


CODIGO MAQUINA PR ° ractica° N 

La llegada de standar MSX, 
marca un paso significativo 
dentro del mundo de los or¬ 
denadores domésticos. Ofre¬ 
ce infinidad de excitantes 
oportunidades para progra¬ 
madores y usuarios. 

Este libro, supone que no 
tienes conocimientos previos 
sobre código máquina. Em- 
explicando las equivalentes 
en código máquina, de las 
principales instrucciones en 
Basic, tales como IF, FOR/ 

NEXT, PRINT, GOTO, GOSUB, 
etc... Continúa con la descrip¬ 
ción muy detallada de las ru¬ 
tinas individuales de un sim¬ 
ple juego: "INVASOR DEL 
ESPACIO", y cómo se enlazan 
estas rutinas que puedes 
aprovechar en tus programas 

en Basic. bm— rp— 

• Aprende lo fácil que es incorporar rutinas en codigo 

máquina dentro de tus programas en Basic. 

• Usa el código máquina para crear sonido y gráficos. 

• Diseña tus propios caracteres y “escenarios” con dos 
programas fáciles de usar. 

Tanto si simplemente desea incluir rutinas para acelerar y 
mejorar tus programas en Basic, como si quieres un programa 
completo y potente en código máquina, encontrarás este 
libro extremadamente útil. En él está suprimida la teoría que 
dificulta el código máquina, y se presenta de una forma 
práctica y divertida de aprenderlo. 

P.V.P. 1.200 pts. , 






• La mayor variedad de libros de microinformática, 
capaces efe satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 

• Todo tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a SinclairQL 


TARJETA DE PEDIDO 



Nombre y apellidos 
Domicilio . 


C. P. 


Ciudad... Provincia 


Número 

Cantidad 

TITULO Y AUTOR 

Importe 
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TODO SOBRE EL 


N.° 14 690 Ptas. 


flUETFIflO 

















Para 

saber cómo 
hablar con los 
ordenadores 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de altp nivel. 

Curso CEAC 

de BASIC + Microordenadores: 
un diálogo permanente 
con el ordenador. 


recibir a la mayor 
brevedad posible información 
sobre el Curso de:_ 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA N.° 8039185 
(BOLETIN OFICIAL DEL ESTADO 3-6-83) 
Aragón, 472 (Dpto. 08013 Barcelona 

Tel.: (93) 245 33 06 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


Nombre y apellidos. 


.Edad. 


Domicilio. 


Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica (con experimentos) 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 




CEAC. Aragón, 472 

(Dpto. ) 08013 Barcelona 


CEAC 


(GRATUITAMENTE 
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